﻿Imports DNP.GestionComercial.BE
Imports DNP.GestionComercial.DAL

Public Class ParametricaBL

    Public Function listarParametricas(ByVal pCodigo As Integer) As RespuestaBE
        Dim odlObjeto As New ParametricaDAL
        Return odlObjeto.ListarParametros(pCodigo)
    End Function

    Public Function ListarParametricaXPadre(ByVal codigoPadre As Integer) As RespuestaBE

        Dim res As New RespuestaBE
        If Not String.IsNullOrEmpty(codigoPadre) Then
            Return New ParametricaDAL().ListarParametricaXPadre(codigoPadre)
        End If

        Return res

    End Function


End Class
